home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Synergy Software / Japanese / KaleidaGraph˛-PPC / Examples folder / Macro Source / Derivative < prev    next >
Text File  |  1994-04-18  |  1KB  |  215 lines
  1. alpha     "Derivative:"
  2. ibase
  3. STOa 9
  4. ;
  5. FIX 0
  6. ;
  7. alpha     "X óÒ"
  8. STOa 0
  9. 0e+00
  10. STO 00
  11. ;
  12. LBL 01
  13. alpha     "Y óÒ"
  14. STOa 1
  15. 1
  16. STO 01
  17. ;
  18. alpha     "èoóÕóÒ"
  19. STOa 2
  20. 2
  21. STO 02
  22. ;
  23. RCLa 9
  24. inpt 3
  25. ;
  26. RCL 00
  27. int
  28. STO 05
  29. ;
  30. RCL 01
  31. int
  32. STO 06
  33. ;
  34. RCL 02
  35. int
  36. STO 04
  37. ;
  38. FIX 6
  39. ;
  40. XEQ 10
  41. ;
  42. XEQ 80
  43. ;
  44. STOP
  45. ;
  46. LBL 10
  47. RCL 05
  48. 1000
  49.  /
  50. STO 10
  51. size
  52. 1
  53.  -
  54. RCL 10
  55.  +
  56. STO 11
  57. ;
  58. RCL 10
  59. int
  60. RCL 06
  61. 1000
  62.  /
  63.  +
  64. STO 40
  65. ;
  66. RCL 11
  67. int
  68. RCL 06
  69. 1000
  70.  /
  71.  +
  72. STO 41
  73. ;
  74. LBL 90
  75. RCLi 41
  76. test 1
  77. GTO 91
  78. test 2
  79. GTO 91
  80. RCLi 11
  81. test 1
  82. GTO 91
  83. test 2
  84. GTO 91
  85. ;
  86. LBL 92
  87. RCLi 40
  88. test 1
  89. GTO 93
  90. test 2
  91. GTO 93
  92. RCLi 10
  93. test 1
  94. GTO 93
  95. test 2
  96. GTO 93
  97. ;
  98. RTN
  99. ;
  100. LBL 91
  101. RCL 41
  102. 1
  103.  -
  104. STO 41
  105. RCL 11
  106. 1
  107.  -
  108. STO 11
  109. GTO 90
  110. ;
  111. LBL 93
  112. RCL 40
  113. 1
  114.  +
  115. STO 40
  116. RCL 10
  117. 1
  118.  +
  119. STO 10
  120. GTO 92
  121. ;
  122. LBL 80
  123. ;
  124. RCL 11
  125. RCL 10
  126.  -
  127. 1e-05
  128.  +
  129. int
  130. STO 01
  131. ;
  132. RCL 10
  133. STO 20
  134. int
  135. RCL 06
  136. 1000
  137.  /
  138.  +
  139. STO 40
  140. ;
  141. RCL 10
  142. int
  143. RCL 04
  144. 1000
  145.  /
  146.  +
  147. STO 19
  148. ;
  149. RCL 20
  150. 1
  151.  +
  152. STO 22
  153. ;
  154. RCL 40
  155. 1
  156.  +
  157. STO 42
  158. ;
  159. 0e+00
  160. RCL 01
  161. x <= y
  162. GTO 81
  163. ;
  164. LBL 98
  165. RCLi 42
  166. test 1
  167. GTO 60
  168. test 2
  169. GTO 60
  170. RCLi 40
  171.  -
  172. RCLi 22
  173. RCLi 20
  174.  -
  175.  /
  176. STOi 19
  177. ;
  178. 1
  179. ADD 19
  180. ADD 22
  181. ADD 42
  182. RCL 22
  183. 1
  184.  -
  185. STO 20
  186. RCL 42
  187. 1
  188.  -
  189. STO 40
  190. GTO 62
  191. ;
  192. LBL 60
  193. CLRi 19
  194. 1
  195. ADD 19
  196. ADD 42
  197. ADD 22
  198. ;
  199. LBL 62
  200. 0e+00
  201. DSE 01
  202. GTO 98
  203. ;
  204. CLRi 19
  205. ;
  206. RTN
  207. ;
  208. LBL 81
  209. RTN
  210. ;
  211. alpha     "Version 1.1 - 5/12/89"
  212. alpha     "by Lonnie R. Abelbeck"
  213. alpha     "Modified - 4/14/93"
  214. alpha     "by W. T. Jones"
  215.